Foreland January 1997/Foreland January 1997.iso/dicegame.dir/00082_button Handler.ls

Text File | 1996-12-26 | 667 b | 24 lines

on buttonClick
  set spriteNum to the clickOn
  set upNum to the memberNum of sprite spriteNum
  set upName to the name of member upNum
  set downName to upName && "hilite"
  set downNum to the number of member downName
  set the memberNum of sprite spriteNum to downNum
  updateStage()
  repeat while the mouseDown
    if rollOver(spriteNum) then
      set the memberNum of sprite spriteNum to downNum
    else
      set the memberNum of sprite spriteNum to upNum
    end if
    updateStage()
  end repeat
  if the memberNum of sprite spriteNum = downNum then
    set the memberNum of sprite spriteNum to upNum
    updateStage()
    return 1
  end if
  return 0
end